(list-text-properties-at): Pass proper format string to message.

diff --git a/lisp/facemenu.el b/lisp/facemenu.el
index 0cef2a00a499d2c2c6930e409b3f2c7527431f90..f1d92932cb53304bd0e81052d52fe9c606dfd452 100644 (file)
--- a/lisp/facemenu.el
+++ b/lisp/facemenu.el
@@ -415,7 +415,7 @@ These special properties include `invisible', `intangible' and `read-only'."
               (< (length (setq str (format "Text property at %d:  %s  %S"
                                            p (car props) (car (cdr props)))))
                  (frame-width)))
-         (message str)
+         (message "%s" str)
        (with-output-to-temp-buffer "*Text Properties*"
          (princ (format "Text properties at %d:\n\n" p))
          (while props